home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / powertb.arc / TESTTD.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-02-24  |  224 b   |  15 lines
  1. {$i datetime.inc}
  2.  
  3. var x : datetimetype;
  4. begin
  5.    writeln('Enter date: ');
  6.    read(x);
  7.    setdate(x);
  8.    writeln('Enter time: ');
  9.    read(x);
  10.    settime(x);
  11.    writeln('date = ',date,'   time = ',time)
  12. end.
  13.  
  14.  
  15.